%  This file is part of Erlywog.

%  Erlywog is free software: you can redistribute it and/or modify
%  it under the terms of the GNU General Public License as published by
%  the Free Software Foundation, either version 3 of the License, or
%  (at your option) any later version.

%  Erlywog is distributed in the hope that it will be useful,
%  but WITHOUT ANY WARRANTY; without even the implied warranty of
%  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%  GNU General Public License for more details.

%  You should have received a copy of the GNU General Public License
%  along with Erlywog.  If not, see <http://www.gnu.org/licenses/>.

%  Copyright Jasm Sison 2009

-module(process_util).
-include_lib("eunit/include/eunit.hrl"). %% turn on unit tests
-export([
	make_process/2
	,kill_process/1
	]).

%% Initialize stuff
make_process(Name, Fun) ->
  register(Name, spawn(Fun)).
  
kill_process(Name) ->
  Name ! {self(), stop}
  , receive
    Truth -> Truth
  end.
